(Fremove_text_properties, Fadd_text_properties):

Really do next_interval when skipping the first interval.

diff --git a/src/textprop.c b/src/textprop.c
index d5f3852cae7118bd18be03677348bc6b264bcb21..ea7968874576ec13ae70f9ac7a32ef2a9c5763be 100644 (file)
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -643,6 +643,7 @@ Return t if any property value actually changed, nil otherwise.")
          if (got >= len)
            return Qnil;
          len -= got;
+         i = next_interval (i);
        }
       else
        {
@@ -815,6 +816,7 @@ Return t if any property was actually removed, nil otherwise.")
          if (got >= len)
            return Qnil;
          len -= got;
+         i = next_interval (i);
        }
       /* Split away the beginning of this interval; what we don't
         want to modify.  */